home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / misc / e-n / miserprint / install < prev    next >
Text File  |  1995-08-22  |  2KB  |  99 lines
  1. ; MiserPrint V1.16 Installation
  2. ; (c) 1993-95 Heinz-Guenter Boettger
  3.  
  4. (set #target-prompt
  5. (cat "\n Where do you want to copy MiserPrint? \n"))
  6.  
  7. (set #target-help
  8. (cat "                                                   \n"
  9.      " Select the directory, where you want to copy the  \n"
  10.      " main program and its icon.                        \n"
  11.      "                                                   \n"
  12. ))
  13. (set target (askdir 
  14.     (prompt  #target-prompt)
  15.     (help    #target-help)
  16.     (default "Sys:Utilities")
  17. ))
  18. (set @default-dest target)
  19.  
  20. (copyfiles
  21.     (prompt "Copying MiserPrint...")
  22.     (source "")
  23.     (dest target)
  24.     (pattern "MiserPrint")
  25.     (files)
  26.     (infos)
  27. )
  28.  
  29. (set #prefs-prompt
  30. (cat "\n Where do you want to copy the\n"
  31.      " the directory 'MiserPrintPrefs'?\n"
  32. ))
  33.  
  34. (set #prefs-help
  35. (cat "                                                   \n"
  36.      " Select the directory, where you want to copy the  \n"
  37.      " MiserPrint preferences.                           \n"
  38.      "                                                   \n"
  39. ))
  40.  
  41. (set target (askdir 
  42.     (prompt  #prefs-prompt)
  43.     (help    #prefs-help)
  44.     (default @default-dest)
  45. ))
  46. (set MPPrefs (tackon target "MiserPrintPrefs") )
  47.  
  48. (copyfiles
  49.     (prompt "Copying MiserPrint preferences...")
  50.     (source "MiserPrintPrefs")
  51.     (dest   MPPrefs)
  52.     (all)
  53. )
  54.  
  55. (textfile
  56.     (dest   "env:MiserPrintPrefsPath")
  57.     (append MPPrefs)
  58. )
  59.  
  60. (textfile
  61.     (dest "envarc:MiserPrintPrefsPath")
  62.     (append MPPrefs)
  63. )
  64.  
  65. (if (exists "envarc:MiserPrint") 
  66. (
  67.     (set #replace-prompt
  68.     (cat "\n Copy your old preferences from 'envarc:MiserPrint' \n"
  69.          " to the new directory and delete the old one?       \n"
  70.          "                                                    \n"
  71.     ))
  72.     
  73.     (set #replace-help
  74.     (cat "                                                   \n"
  75.          " Select 'Yes' to copy your old preferences files.  \n"
  76.          "                                                   \n"
  77.     ))
  78.  
  79.     (if (askbool 
  80.             (prompt #replace-prompt)
  81.             (help   #replace-help)
  82.         )
  83.         (
  84.             (copyfiles
  85.                 (prompt "Copying old MiserPrint preferences...")
  86.                 (source "envarc:MiserPrint")
  87.                 (dest   MPPrefs)
  88.                 (all)
  89.             )
  90.     
  91.             (foreach "envarc:MiserPrint" "#?" 
  92.                 (delete (tackon "envarc:MiserPrint" @each-name))
  93.             )
  94.             (delete "envarc:MiserPrint")
  95.         )
  96.     )
  97. )
  98. )
  99.